home *** CD-ROM | disk | FTP | other *** search
/ Stone Design / Stone Design.iso / Stone_Friends / Wave / WavesWorld / Examples / eyes / audreyEye.wwModel / initialDefines.eve < prev    next >
Encoding:
Text File  |  1995-03-22  |  815 b   |  27 lines
  1. set sphere(color) {1.0 0.0 0.0}
  2. set sphere(radius) 1.0
  3. EveCmd {set sphere(zMin) [expr {-1 * $sphere(radius)}]}
  4. EveCmd {set sphere(zMax) $sphere(radius)}
  5.  
  6. set sphere(thetaMax) 270.0
  7.  
  8. # this gives it a nice goofy look
  9. set sphere(volumePreservingScaleFactor) .875
  10.  
  11. EveCmd {set sphere(xScale) [expr 1./sqrt($sphere(volumePreservingScaleFactor))]}
  12. EveCmd {set sphere(yScale) $sphere(volumePreservingScaleFactor)}
  13. EveCmd {set sphere(zScale) [expr 1./sqrt($sphere(volumePreservingScaleFactor))]}
  14.  
  15. set sphere(xTranslate) 0
  16. set sphere(yTranslate) 0
  17. set sphere(zTranslate) 0
  18. set sphere(xRotate) 0
  19. set sphere(yRotate) 0
  20. set sphere(zRotate) 0
  21.  
  22. set eyeBall(irisColor)  {.389981 .305734 .78196}
  23. set eyeBall(irisSize)  .12
  24. set eyeBall(pupilSize) .05 
  25. set eyeBall(bloodShot) .85
  26. set eyeBall(upToDown) 0 
  27. set eyeBall(leftToRight) 0